home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / comm / bbs / trionbbs100.lha / Trion / menus / main.src < prev    next >
Text File  |  1997-07-28  |  3KB  |  206 lines
  1.  
  2.  
  3. Menu "main.menu"
  4.  
  5. flags  hotkeyable
  6. level  0 - 255 , "Main.Ansi"
  7. prompt 0 , 0 - 255 , "|Main Menu : "
  8. prompt 1 , 0 - 255 , "|Menu : "
  9.  
  10. BEGIN     ; Start the command definitions
  11.  
  12.  
  13. MenuBegin
  14. ;   Print "MainMenu|"
  15.    LogMessage "Entered main menu."
  16. ;   Print "!|"                          ;RIP-scrip mode on
  17. EndCmd
  18.  
  19. ;MenuEnd
  20. ;   Print "!|"                          ;RIP-scrip mode off
  21. ;EndCmd
  22.  
  23. ;CommandBegin
  24. ;   Print "vvv"
  25. ;EndCmd
  26.  
  27. ;CommandEnd
  28. ;   Print "^^^"
  29. ;EndCmd
  30.  
  31. BuildScreen
  32. ;;   PrintFile "trion:menutext/main.ansi"
  33. ;   CliDoor  "doors:FX/Random   ~50  main.rndm"
  34. ;   CliDoor  "doors:FX/scroller ~50  main.scrl"
  35.    CliDoor  "doors:FX/text ~50  main.text"
  36. ;;   CliDoor  "doors:FX/blink    ~50  main.blnk"
  37. EndCmd
  38.  
  39.  
  40. Cmd "V"
  41.    CliDoor  "doors:FX/AddText ~50  main.text"
  42. EndCmd
  43.  
  44.  
  45. Cmd "G" , 0-255
  46.    GotoMenu "Logout.Menu"
  47. EndCmd
  48.  
  49. Cmd "F" , 0-255
  50.    GotoMenu "File.Menu"
  51. EndCmd
  52.  
  53. Cmd "M" , 0-255
  54.    GotoMenu "Mail.Menu"
  55. EndCmd
  56.  
  57. Cmd "D" , 0-255
  58.    GotoMenu "Door.Menu"
  59. EndCmd
  60.  
  61. Cmd "E" , 0-255
  62.    GotoMenu "UserEdit.Menu"
  63. EndCmd
  64.  
  65. Cmd "B" , 0-255
  66.    GotoMenu "Bulletin.Menu"
  67. EndCmd
  68.  
  69.  
  70.  
  71. Cmd "$" , 0-239
  72.    PassWord "test"         ;voor Sysop als User online
  73.    GotoMenu "Sysop.Menu"
  74. EndCmd
  75.  
  76. Cmd "$" , 240-254
  77.    PassWord "test"              ;voor Cosysop level
  78.    GotoMenu "Sysop.Menu"
  79. EndCmd
  80.  
  81.  
  82. Cmd "$" , 255
  83.    PassWord "test"         ;voor Sysop level
  84.    GotoMenu "Sysop.Menu"
  85. EndCmd
  86.  
  87.  
  88.  
  89. Cmd "P" , 0-255
  90.    PageSysop
  91. ;   CliDoor  "doors:chatdoor/PageDoor ~50 "
  92. ;   CliDoor  "doors:chatdoor/RoboChat ~50 "
  93. EndCmd
  94.  
  95. Cmd "=" , 0-255 , S
  96.    CliDoor  "doors:chatdoor/SplitChat ~50 "
  97. EndCmd
  98.  
  99. Cmd "-" , 0-255 , S
  100.    CliDoor  "doors:chatdoor/LineChat ~50 "
  101. EndCmd
  102.  
  103. Cmd "\" , 0-255 , S
  104.    ClrScr
  105.    FlushBuffer                           ; Flush the return after "\"
  106.    PushIntoBuffer "Hallo daar !!|"
  107.    StartChat
  108. EndCmd
  109.  
  110.  
  111.  
  112.  
  113. Cmd "C" , 0-255
  114.    CommentToSysop
  115. EndCmd
  116.  
  117.  
  118. Cmd "I" , 0-255
  119.    CliDoor  "trion:doors/conf/conf '~200' ~50 "
  120. EndCmd
  121.  
  122.  
  123. Cmd "O" , 0-255
  124.    DosCommandSync "list dh1: >ram:mylist"
  125. ;   Pause "100"
  126.    PrintFile  "ram:mylist"
  127.    More
  128. EndCmd
  129.  
  130.  
  131.  
  132.  
  133.  
  134. Cmd "S" , 0-255
  135.    CliDoor  "doors:SendNodeMsg/SendNodeMsg ~50"
  136. EndCmd
  137.  
  138.  
  139. Cmd "L" , 0-255
  140. ;   DosCommandSync  "trion:utils/listnodes >ram:mylist"
  141. ;   Print "|Node Actie                              Name            Place Level |"
  142. ;   Print "====================================================================|"
  143. ;   Print "ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ|"
  144. ;   PrintFile   "ram:mylist"
  145.  
  146.    CliDoor  "trion:utils/listnodes ANSI"
  147.  
  148.    More
  149. EndCmd
  150.  
  151.  
  152.  
  153.  
  154.  
  155.  
  156.  
  157. Cmd "T" , 0-255
  158.    GotoMenu "Test.Menu"
  159. EndCmd
  160.  
  161. ; Cmd "-" , 0-255
  162. ;    Print "~243 ~403   ~244 ~404   ~245 ~405"
  163. ;    More
  164. ; EndCmd
  165.  
  166. Cmd "1" , 0-255
  167.    Print "!|"
  168.    PrintFile   "trion:text/tower.rip"
  169.    More
  170.    Print "!|"
  171. EndCmd
  172.  
  173.  
  174. Cmd "2" , 0-255
  175.    Print "!|"
  176.    PrintFile   "trion:text/tower.rip"
  177.    More
  178.    Print "!|"
  179. EndCmd
  180.  
  181.  
  182. Cmd "3" , 0-255
  183.    Print "!|"
  184.    PrintFile   "dh2:ripscreens/honeycom.rip"
  185.    More
  186.    Print "!|"
  187. EndCmd
  188.  
  189. Cmd "4" , 0-255
  190.    Print "!|"
  191.    PrintFile   "dh2:ripscreens/wall.rip"
  192.    More
  193.    Print "!|"
  194. EndCmd
  195.  
  196. Cmd "9" , 0-255
  197.    Print "!|"
  198.    PrintFile   "ram:a"
  199.    More
  200.    Print "!|"
  201. EndCmd
  202.  
  203.  
  204. END
  205.  
  206.